home *** CD-ROM | disk | FTP | other *** search
- property pOnMember, pOffMember, pState
-
- on beginSprite me
- setMember(me)
- end
-
- on mouseEnter me
- put "Check to edit colors." into field "status"
- end
-
- on mouseLeave me
- put EMPTY into field "status"
- end
-
- on setMember me
- if pState = 1 then
- sprite(me.spriteNum).member = pOnMember
- else
- sprite(me.spriteNum).member = pOffMember
- end if
- end
-
- on mouseUp me
- pState = not pState
- setMember(me)
- end
-
- on isChecked me
- return pState
- end
-
- on getPropertyDescriptionList me
- list = [:]
- addProp(list, #pOnMember, [#comment: "On Member", #format: #member, #default: "check on"])
- addProp(list, #pOffMember, [#comment: "Off Member", #format: #member, #default: "check off"])
- addProp(list, #pState, [#comment: "Initial State", #format: #boolean, #default: 0])
- return list
- end
-